home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
gfx
/
misc
/
gnuplot-3.7src.lha
/
gnuplot-3.7src
/
gnuplot-3.7.lha
/
gnuplot-3.7
/
docs
/
doc2rtf.c
< prev
next >
Wrap
C/C++ Source or Header
|
1998-10-19
|
8KB
|
310 lines
/*
* $Id: doc2rtf.c,v 1.16 1998/04/14 00:17:00 drd Exp $
*
*/
/* GNUPLOT - doc2rtf.c */
/*[
* Copyright 1986 - 1993, 1998 Thomas Williams, Colin Kelley
*
* Permission to use, copy, and distribute this software and its
* documentation for any purpose with or without fee is hereby granted,
* provided that the above copyright notice appear in all copies and
* that both that copyright notice and this permission notice appear
* in supporting documentation.
*
* Permission to modify the software is granted, but not the right to
* distribute the complete modified source code. Modifications are to
* be distributed as patches to the released version. Permission to
* distribute binaries produced by compiling modified sources is granted,
* provided you
* 1. distribute the corresponding source modifications from the
* released version in the form of a patch file along with the binaries,
* 2. add special version identification to distinguish your version
* in addition to the base release version number,
* 3. provide your name and address as the primary contact for the
* support of your modified version, and
* 4. retain our contact information in regard to use of the base
* software.
* Permission to distribute the released version of the source code along
* with corresponding source modifications in the form of a patch file is
* granted with same provisions 2 through 4 for binary distributions.
*
* This software is provided "as is" without express or implied warranty
* to the extent permitted by applicable law.
]*/
/*
* doc2rtf.c -- program to convert Gnuplot .DOC format to MS windows
* help (.rtf) format.
*
* This involves stripping all lines with a leading digit or
* a leading @, #, or %.
* Modified by Maurice Castro from doc2gih.c by Thomas Williams
*
* usage: doc2rtf file.doc file.rtf [-d]
*
*/
/* note that tables must begin in at least the second column to */
/* be formatted correctly and tabs are forbidden */
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include "ansichek.h"
#include "stdfn.h"
#define MAX_LINE_LEN 1023
#include "doc2x.h"
#include "xref.h"
static boolean debug = FALSE;
void footnote __PROTO((int, char *, FILE *));
void convert __PROTO((FILE *, FILE *));
void process_line __PROTO((char *, FILE *));
int main(argc, argv)
int argc;
char **argv;
{
FILE *infile;
FILE *outfile;
if (argc == 4 && argv[3][0] == '-' && argv[3][1] == 'd')
debug = TRUE;
if (argc != 3 && !debug) {
fprintf(stderr, "Usage: %s infile outfile\n", argv[0]);
exit(EXIT_FAILURE);
}
if ((infile = fopen(argv[1], "r")) == (FILE *) NULL) {
fprintf(stderr, "%s: Can't open %s for reading\n",
argv[0], argv[1]);
exit(EXIT_FAILURE);
}
if ((outfile = fopen(argv[2], "w")) == (FILE *) NULL) {
fprintf(stderr, "%s: Can't open %s for writing\n",
argv[0], argv[2]);
exit(EXIT_FAILURE);
}
parse(infile);
convert(infile, outfile);
exit(EXIT_SUCCESS);
}
/* generate an RTF footnote with reference char c and text s */
void footnote(c, s, b)
int c;
char *s;
FILE *b;
{
fprintf(b, "%c{\\footnote %c %s}\n", c, c, s);
}
void convert(a, b)
FILE *a, *b;
{
static char line[MAX_LINE_LEN+1];
/* generate rtf header */
fprintf(b, "{\\rtf1\\ansi "); /* vers 1 rtf, ansi char set */
fprintf(b, "\\deff0"); /* default font font 0 */
/* font table: font 0 proportional, font 1 fixed */
fprintf(b, "{\\fonttbl{\\f0\\fswiss Arial;}{\\f1\\fmodern Courier New;}}\n");
/* process each line of the file */
while (get_line(line, sizeof(line), a)) {
process_line(line, b);
}
/* close final page and generate trailer */
fprintf(b, "}{\\plain \\page}\n");
/* fprintf(b,"}\n"); *//* HBB: HACK ALERT: only without this, hc31 works */
list_free();
}
void process_line(line, b)
char *line;
FILE *b;
{
static int line_count = 0;
static char line2[MAX_LINE_LEN+1];
static int last_line;
int i;
int j;
static int startpage = 1;
char str[MAX_LINE_LEN+1];
char topic[MAX_LINE_LEN+1];
int k, l;
static int tabl = 0;
static int para = 0;
static int llpara = 0;
static int inquote = FALSE;
static int inref = FALSE;
struct LIST *klist;
line_count++;
i = 0;
j = 0;
while (line[i] != NUL) {
switch (line[i]) {
case '\\':
case '{':
case '}':
line2[j] = '\\';
j++;
line2[j] = line[i];
break;
case '\r':
case '\n':
break;
case '`': /* backquotes mean boldface or link */
if (line[1] == ' ') /* tabular line */
line2[j] = line[i];
else if ((!inref) && (!inquote)) {
k = i + 1; /* index into current string */
l = 0; /* index into topic string */
while ((line[k] != '`') && (line[k] != NUL))
topic[l++] = line[k++];
topic[l] = NUL;
klist = lookup(topic);
if (klist && (k = klist->line) > 0 && (k != last_line)) {
line2[j++] = '{';
line2[j++] = '\\';
line2[j++] = 'u';
line2[j++] = 'l';
line2[j++] = 'd';
line2[j++] = 'b';
line2[j] = ' ';
inref = k;
} else {
if (debug)
fprintf(stderr, "Can't make link for \042%s\042 on line %d\n", topic, line_count);
line2[j++] = '{';
line2[j++] = '\\';
line2[j++] = 'b';
line2[j] = ' ';
inquote = TRUE;
}
} else {
if (inquote && inref)
fprintf(stderr, "Warning: Reference Quote conflict line %d\n", line_count);
if (inquote) {
line2[j] = '}';
inquote = FALSE;
}
if (inref) {
/* must be inref */
sprintf(topic, "%d", inref);
line2[j++] = '}';
line2[j++] = '{';
line2[j++] = '\\';
line2[j++] = 'v';
line2[j++] = ' ';
line2[j++] = 'l';
line2[j++] = 'o';
line2[j++] = 'c';
k = 0;
while (topic[k] != NUL)
line2[j++] = topic[k++];
line2[j] = '}';
inref = 0;
}
}
break;
default:
line2[j] = line[i];
}
i++;
j++;
line2[j] = NUL;
}
i = 1;
switch (line[0]) { /* control character */
case '?':{ /* interactive help entry */
if ((line2[1] != NUL) && (line2[1] != ' '))
footnote('K', &(line2[1]), b);
break;
}
case '@':{ /* start/end table */
break; /* ignore */
}
case '^':{ /* html link escape */
break; /* ignore */
}
case '#':{ /* latex table entry */
break; /* ignore */
}
case '%':{ /* troff table entry */
break; /* ignore */
}
case '\n': /* empty text line */
fprintf(b, "\\par\n");
llpara = para;
para = 0;
tabl = 0;
break;
case ' ':{ /* normal text line */
if ((line2[1] == NUL) || (line2[1] == '\n')) {
fprintf(b, "\\par\n");
llpara = para;
para = 0;
tabl = 0;
}
if (line2[1] == ' ') {
if (!tabl) {
fprintf(b, "\\par\n");
}
fprintf(b, "{\\pard \\plain \\f1\\fs20 ");
fprintf(b, "%s", &line2[1]);
fprintf(b, "}\\par\n");
llpara = 0;
para = 0;
tabl = 1;
} else {
if (!para) {
if (llpara)
fprintf(b, "\\par\n"); /* blank line between paragraphs */
llpara = 0;
para = 1; /* not in para so start one */
tabl = 0;
fprintf(b, "\\pard \\plain \\qj \\fs20 \\f0 ");
}
fprintf(b, "%s \n", &line2[1]);
}
break;
}
default:{
if (isdigit((int)line[0])) { /* start of section */
if (startpage) { /* use new level 0 item */
refs(0, b, "\\par", NULL, "\\par{\\uldb %s}{\\v loc%d}\n");
fprintf(b, "}{\\plain \\page}\n");
} else {
refs(last_line, b, "\\par", NULL, "\\par{\\uldb %s}{\\v loc%d}\n");
fprintf(b, "}{\\plain \\page}\n");
}
para = 0; /* not in a paragraph */
tabl = 0;
last_line = line_count;
startpage = 0;
fprintf(b, "{\n");
sprintf(str, "browse:%05d", line_count);
footnote('+', str, b);
footnote('$', &(line2[1]), b); /* title */
fprintf(b, "{\\b \\fs24 %s}\\plain\\par\\par\n", &(line2[1]));
/* output unique ID */
sprintf(str, "loc%d", line_count);
footnote('#', str, b);
} else
fprintf(stderr, "unknown control code '%c' in column 1, line %d\n",
line[0], line_count);
break;
}
}
}